(find-file-noselect): If a find-file-not-found-hook succeeds, clear `error'.

diff --git a/lisp/files.el b/lisp/files.el
index b21e2736eb53055796ee59f7e18d90456facf71e..56d92806180fce9b17511861ed95d8dee24212cc 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -652,7 +652,11 @@ The buffer is not selected, just returned to the caller."
             ;; Run find-file-not-found-hooks until one returns non-nil.
             (let ((hooks find-file-not-found-hooks))
               (while (and hooks
-                          (not (funcall (car hooks))))
+                          (not (and (funcall (car hooks))
+                                    ;; If a hook succeeded, clear error.
+                                    (progn (setq error nil)
+                                           ;; Also exit the loop.
+                                           t))))
                 (setq hooks (cdr hooks))))))
          ;; Find the file's truename, and maybe use that as visited name.
          (setq buffer-file-truename (abbreviate-file-name truename))